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ALL RIGHTS RESERVED. 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
se pokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: 
VAX/VMS TERMINAL DRIVER 
; ; ABSTRACT: 
DZ PORT DRIVER 
This module functions as a port driver for DZ11 and 0232 terminal 
controllers. It contains hardware specific port level service 
routines. 
: ; AUTHOR: 
RICK SPITZ 
; ; Revision history: 
v03-028 M1R0480 Michael I. Resend lus 8-Aug-1984 
4 gs found in testing the DZ-32 and reported in 

QAR 1126 (FTI). 
v03-027 LMP0275 Pilan 12-Jul-1984 21:01 

nitialize the act ae . the “ORB to be a null descriptor 


ist rather than an empty queue. This avoids the overhead 
of locking and unlocking the ACL mutex, only to find out 


SoOoooooosoo 


DOOOCOOOOOOSOSOSOOOOOOOOOOOOOSoO: 


ooo 


OoOoQooooocoocoao 


oo 


ooo 


SOoOoooooooooooooSo 


NAUSEA 9 OD NAME WIN 9 OO NAME WIN $$ O OO NAME WW OC DOONAN OUOONOUES wn 


aes tas a tal al st nt ot ot at at at nt ot aed 
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a) = Pore etver for DEN suport" UHCI HEHE PMULIESEATE wes "OP dy] | 


nblum 20-Dec-1982 
Remove entry point to reflect the redefinition of the. PORT_DISCONNEC 
entry point. 


v03-013 MIROO14 hael I. Rosenblum 17-Dec-1982 
Remove code to Bip eo flow control characters from 


3 : that the ACL was By: 
60 ; v03-026 EMD0090 en M. Dusseault 30-Apr-1984 
61; Add DEVSM_NNM characterist g.. to OG YCHARE so that these 
86 : devices will have the ‘‘node$'' prefix 
rt : v03-025 LMP0221 ark Pilan 7-Apr-1984 13:37 
65 ; ve e UCBSL _ownuic” to ORBSL NOUNER and uces _VPROT to 
66 ; ORBSW_PROT. 
0 8 : V03-024 JLV0321 Jake 5-JAN-1984 
b6 § Minor enhancements to itt support. Comment out 
8 oY ; DPT_STORE for parity, must fix a restriction. 
60 ue ; v03-023 MIROOSS Michael I. Rosenblum 30-June-1983 
+ 73 3 Remove code from unit and controler-init routines 
00 74 ; and neko insert calls to class driver macros 
4 f? ; Add DZV11 support. 
9000 8 ; v03-022 RkS$0022 RICK SPITZ 14=-MAR-1983 
4s 8 : ADD ENHANCEMENTS TO SUPPORT LOGICAL UCB. 
0000 80 ; v03-021 MIROO22 Michael I. Rosenblum 19-Jan-1982 
0000 73 Change references to UcBsa. ERTCNT to use UCBSW_TT "ONL TBIT 
0000 ¢ 3 to be more maintainable. 
8388 3 Replace old vector table with new vector table mac 
000 4; Remove references to UCBSL_DEVDEPEND and UCB$Q_TT STATE 
0000 Bg ‘ move these references into the class driver jacket routines 
000 7; v03-020 m1R0021 Michael I. Rosenblum 17-Jan-1983 
0000 88 Fix D232 DZ_SET table entry. = 
0000 ««90:: v03-019 RKS0019 RICK SPITZ 13-JAN-1983 
48 4! : Repair problem with port vector macro 
Ba8 38 : v03-018 M1RO019 hael I. Rosenblum 11-Jan-1982 
bp 3 ; Fix undefined ah created by MIROO18. 
6 + : v03-017 m1R0018 Michael I. Rosenblum 07-Jan-1983 
3 ob : Change the port vector table to use the SVEC macros 
0 99 : V03-016 M1ROO17 hael I. Rosenblum 05-Jan-1983 
100 ; Add powerfail check in the Unit init routine to allow the 
8 101 ; terminal class drier to take positive action on powerfail. 
1 § 3 Chan ° code to accept a byte value as returns from the 
1 3 GETNXT and PUTNXT class survices, this will removes this 
! : ; information from the condition codes. 
1 8 : V0O3-015 MIRO016 Michael I. Rosenblum 29-Dec-1982 
! ; Replace time calculation code with TIMSET macro call 
199 ; VO3-014 MIROO15 Michael I. Rose 
He 
118 : 
114 ; 
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port XON and XOFF routines and move that code into 
the class driver. 


v03-012 RKS0012 RICK SPITZ 16-SEP-1982 
Check reference count in unt init to determine if 
godes Se hy enous be init alized or hungup. This 
is need ¢¢ to insure that a hangup “Y is posted on 
powerfail for modem lines. 


v03-011 JLVv0211 2-JUL-1982 


Remove check don” poweriait, in unit init that prevents 
SETUP “ye from being called. This insures that UCB fields 
are initialized correctly when Unit init is called for 
use with CSS unibus switch. 


v03-010 K thleen D. Morse 28-Jun-1982 


Added 2 SDEVDEF., SIPLDEF. SPRDEF , and SSSDEF. 
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PT:: 
IF DF DZV 
END=DZSEND,- 
UCBSIZE=UCBSC_TT_LENGTH, 
FLAGS=DPT$M_NOUNCOAD , - 
ADAPTERSUBA, ~ 
DEFUNITS=4,- 
NAME=DZDRIVER, - 
ae VECTOR=PORT_VECTOR 
DPTAB. = 
SUBS ee CUrASC_TT LENGTH 
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FLAGS=DPTSM, NOUNCOAD 
ADAPTER=UBA;~ 
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XOF F 
OP_ CURRENT OUTPUT 
ABORT CURRENT OUTPUT 
RESUME STOPPED OUTPUT 
INVOKE MAINTENANCE FUNCTIONS 
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-SBTTL REGISTER DEFINITIONS 


; CSR BIT DEFINITIONS ( CSR ) ( READ/WRITE ) 
SVIELD DZCSR,0,<- 
<MOD 


*1.M>,- 0233 = MODE/ 0211 = UNUSED 
<DS_ENAB,1.M>,- : D232 = DATA SET INTERRUPT ENABLE 
<,17>,° + UNUSED 
<MAINT.1.M>.- |} LINE TURNAROUND 
<CLEAR,1,M>.- ; MASTER RESET 

WASTENAB, 1 .M>. =i MASTER SCAN ENABLE 
<RCVINT,1.M>,- : RECEIVER INTERRUPT ENABLE 
<RCVRDY 1 A>, : RECEIVER READY 
<LINE,3,M>,-. LINE NUMBAE (0 = 7) 
<DS_CHG,1,M>,- : D232 = DATA SET INTERRUPT 
<,2,>,° 3; UNUSED 
<§NOINT,1,M>,- : TRANSMIT INTERRUPT ENABLE 
<SNDRDY,1,M>= : TRANSMITTER READY 


: RECEIVER BUFFER ( CSR+#2 ) ( READ ONLY ) 


SVIELD DZRCV 0,<- 
<BUF ,8,">,- : RECEIVER DATA 
cL NE.3 MD, : LINE NUMBER (0 - 7) 
<PARERR,1,M>,- ; PARITY ERROR 
<FRAMER,1,M>.- : FRAME ERROR 
<OVERRUN,1,M>,- : OVERRUN ERROR 
<VAL IO. A>= Py DATA VALID 


; LINE PARAMETER REGISTER ( CSR+2 ) ( WRITE ONLY ) 


SVIELD DZLPR,0,<- 
<LINE.3.M>,-  ; LINE ER (0-7) 
<SIZE.2.M>.- |: CHARACTER SIZE 
<STOP.1.M>.- |: NUMBER STOP BITS 
<PARITY.1,4>,- : PARITY ENABLE 
<ODD,1,>.- : ODD PARITY 
<SPEED.4,M>,- : LINE SPEED 
<CLOCK.1.M>.- RECEIVER CLOCK 
<SPLIT.1.M>.- : D232 - SPLIT SPEED 

> DZ-32 SPECIFIC MODEM CONTROL 

SVIELD DILCS1,8.<- 

<hck. 1m, ; READY FOR COMMAND/ UPDATE OUTPUT MODEM 
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ayaa CONTROLLER INITIALS SATION ~SEECISRS BE:FS:82 PAILWNS Bacco OsuOD ny Page 9, 
AD 46 .SBTTL CONTROLLER INITIALIZATION 
Nae Tk: 
AD 9 i++ 
AD ; DZSINITIAL = INITIALIZE INTERFACE 
AD ; FUNCTIONAL DESCRIPTION: 
AD 5 : THIS ROUTINE IS ENTERED AT SYSTEM STARTUP AND POWER RECOVERY. 
AD 3 + INPUTS: 
ap 35 : R4 = ADDRESS OF THE UNIT CSR 
AD 360: RS = IDB OF 
AD 61 ; RB = ADDRESS OF THE UNIT CRB 
AD 8 : OUTPUTS: 
AD 4; 
OAD 65 ; R2 is destroyed. 
OAD 96 3 
AD 6 : IMPLICIT INPUTS: 
AD $3 : IPL = IPL$_POWER 
boa 71: 
SOAD ee B7SINITIAL:: ; INITIALIZE DZ UNIT 
OAD 374; 
AD ¢3 : SET UP CONTROLLER 
AD 7 : class_ctrl_init dz$dpt.port_vector 
64 10 B0 DA hi 25$:  MOVW  #DZCSRSM_CLEAR, (R4) : INIT CONTROLLER RESET 
DD 1a 
bb i ; WAIT TILL CONTROLLER INIJALIZATION IS COMPLETE 
Opp 4 : TIMEWAIT #500, #DZCSRSM_CLEAR, (R4),W, FALSE. 
64 4063 8F BO 0104 MOVW  #<<DZCSRSM_MASTENAB>!- ; 
. 109 $ <DZCSRSM_RCVINT>!~ > ENABLE RECEIVER INTERRUPTS 
109 : SOFESRER-SNOINTD I; : ENABLE TRANSMITTER INTERRUPTS 
109 <DZCSRSA S AEN le : ENABLE 02-32 DATA SET INTERRUPTS 
109 : coz CSR (R4)  : ENABLE ENHANCED MODE ON D2Z- 
36 50 «£9 9 se BLBC Ossi Siserne POP RROR 
4 BO 010¢ MOV : GET NEW STATU 
19 35 66 E $4 BBS sb2C&RSV_MODE.R2, 1108 : BRANCH IF DZ- i CONTROLLER 
11 96 100$: 
0B AS 42 8F 90 1 ; MOVE #0T$_DZ11,CRBSB_TT_TYPE(R8); CONTROLLER IS 0211 
11 38 : INIT DZ-11 INTERRUPT VECTORS 
11 0 : THIS IS DONE HERE TO ALLOW THE DRIVER TO SERV Ice INTERUPTS 
i 4 }i FOR BOTH THE D2-11 AND DZ-32 BETWEEN CONTROLER AN UNIT INIT. 
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r DZ-11 support 
ALOSATION - 
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voe~000" 


; RESET CURRENT DZ-11 MODEM STATE 


CRBSB_DZ_RING(R8) 


CLRW 
RSB 


;02-32 CONTROLLER SPECIFIC INIT 


ndf 62V 


1108: 
if 


ENABLE 


IT 02-32 ALTERNATE INTERRUPT VECTORS 
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«SBTTL UNIT INITIALIZATION 


vou=000" unit IN 


—o 
_ 
st te 
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re 
-—s 
Lod 
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' 
A 
28 ; se 
148 4 3 DZSINITLINE = UNIT INITIALIZATION 
148 4 : FUNCTIONAL DESCRIPTION: 
148 4 3 ; THIS ROUTINE PERFORMS A SIMPLE UNIT INITIALIZATION. 
148 4 5 : INPUTS: 
148 4 $ : RS = UCB ADDRESS 
148 63s : OUTPUTS: 
148 441: R2,R5 ARE PRESERVED. 
irk a 
ite tte DZSINITLINE:: 
54 24 a5 00 148 44g MOVL  UCBSL_CRB(RS) ,R4 ; GET CRB ADDRESS 
14 448 IF NDF DZV ; If NOT DZV 
O FFID CF DE O14F 450 MOVAL DZ32$VEC,RO : SET DZ=32 PORT VECTOR TABLE 
0B AG «643 BF O91 «0154 451 CMPB POTS O42 CRBSB_TT_TYPE(R4) : IS IT 02-32 ? 
05 13 139 43¢ BEQL «=séSSS$ > YES 
0158 44 «ENDC ; END OF D232 CODE 
50 FEDO CF DE 138 436 MOVAL 02Z11$VEC,RO ; SET DZ-11 PORT VECTOR TABLE 
160 457 S$: CLASS_UNIT_INIT 
64 AS 10 AB O1A9 438 BISw ~ #uCBSM ONL INE UCBSW_STS(R5); SET ONLINE 
53 01 54 A} 78 O1AD 459 °10$: = ASHL $w_ONIT(R5),41,R3._. ; BUILD UNIT'S BIT MASK 
9106 cS 653)—C«wB 182 460 MOVW R3,UCB$W_TT_UNITBIT(RS) : SAV 
1 011405 DO 0187 461 MOVL  UCBSL_TT“CLASS(R5S),R1: ADDRESS CLASS VECTOR TABLE 
0861 16 18¢ 46¢ fre JSB @CLASS_SETUP_UCB(R1) : INIT UCB FIELDS 
00000864'EF 16 18 464 " ‘SB DZ$SET_LINE : INIT SPEED/PARITY 
54 24 a5 00 168 466 MOVL UCBSL_CRB(RS),R4 : GET CRB ADDRESS 
1¢9 468 IF NDF DZV : If NOT DZV 
0B AG 42 BF 91 1¢9 a0 CMPB #D1$_D211,CRBSB_TT_TYPE(R4) ; CONTROLLER D211? 
69 13 O1CE 47 BEQL 25% > YES 
1D are 
Bak 
1p 428 : INIT RECEIVER MODEM STATUS FOR DZ-32 
54 2C B4 00 100 ar : MOVL @CRBSL_INTD+VECSL_IDB(R4),R4 ; GET CSR ADDRESS 
1p4 ‘79 : WAIT TILL MODEM CONTROL READY FOR COMMNAD 
1D4 ° TIMEWAIT #500, #DZLCS1SM_ACK,4(R4),W,. TRUE. 
6 50 9 FE 4 ; BLBC OR pzSunit ERROR 
0406 5405 B80 0201 4 MOVW UCBSW_UNITTRS) ,4(R4) ; REQUEST STATUS ON LINE 
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; WAIT FOR COMPLETION 
TIMEWAIT. #500 #DZLCS1SN gAck.4(R4), W,. TRUE. 
BLBC 07$UN 


RRO 
MOVE tks UCBSB TT ots RCV(RS) ; UPDATE RECEIVER MODEM STATUS 


vou000" unit 
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PUPP VST SVS ISITE BB EE PPP PPP EEE OS 


PBDOODODOOCOOO0O000000 0000000000000 


zZ 
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orzo cs bt ae 88 


25$: 
-ENDC 3; END OF 0232 CODE 
5 po PUSHL R2 
3\ 0 A MOVZBL #MODEMSC_INIT,R1 3; ASSUME INIT MODEM One teak 
50 114 € b0 MOVL U TT CLASS(R5),RO ; ADDRESS CLASS VECTOR TABLE 
0c 34 18 JS _DS_TRAN(RO) ; INVOKE TO INIT MODEM PROTOCOL 
8ED 30$ POPL 
08 64 A5 O05 €1 BBC #UCBSV_POWER ,UCBSW_STS(R5),40$; DID WE DETECT A POWER FAIL 
0 114 C5 + MOVL UCBSL_TT_CLA ASS(R5) RO 3; GET THE CLASS VECTOR TABLE ADDRESS 
20 B80 bs 0s aA SCLASS. POWERFAIL (RO) 3; AND GOTO THE POWERFAIL CODE 


ERROR DETECTED DURING INITIALIZATION 


DS sete ee 


ZSUNIT_ERROR: 
Bitw #UCBSM_ONLINE ,UCBSW_STS(R5) ; UNIT NOT ON LINE 
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DZDRIVER - Port Driver for 02-11 support 16-SEP-1984 02:24: AX/VMS Macro V04-00 P 1 
yon O08 MAINTENANCE ROUTINES yt oe ana ct 1 
c i me ~SBTTL MAINTENANCE ROUTINES 
c 1 3 DZSMAINT = MAINTENANCE FUNCTIONS 
c 1 FUNCTIONAL DESCRIPTION: 
: i 3 THIS ROUTINE PERFORMS MAINTENANCE FUNCTIONS FOR THE DZ . 
¢ : 
: 1 ; INPUTS: 
¢ : ; RS = UBC ADDRESS 
3 4 ; UCB$B_TT_MAINT = FUNCTION TO BE PERFORMED 
¢ : OUTPUTS: 
at 
5¢ § “IF NDF DZV 
5¢ 0 DZ32$MAINT: 
01 93 025¢ 1 BITB #10$M_LOOPa-7,- ; LOOPBACK FUNCTION 
012A C5 + 3 3 : eal CBSB_TT MAINE (RS) ad 
52 40 8F 9A 0263 534 MOVZBL #*X40,R2 + SPECIFY LOOPBACK 
oc 11 7 535 - BRB 10$ ’ aay Mee 
22 93 0269 : $ ; BITB § #10$M_UNLOOP@-7,- ; RESET LOOPBACK FUNCTION 
012A C3 - 68 338 seal y B$B_TT_MAINT(RS) al 
52 7200 8F 3C 70 240 an MOVZWL #*X7200,R2 + SPECIFY UNLOOP CODE (BOTH) 
QO00002ED'EF 16 0275 4¢ “rae 0232$DS_SET ; UPDATE CONTROLLER 
50. 01 9A O27B 54 MOVZBL #1,RO : INDICATE SUCCESS 
FRE aE ass, B88 
20 93 O27F $46 "  « BITB. = #10$M_LOOP_EXTa-7,- : LOOPBACK FUNCTION 
012A c " } 34 seas UCBSB_TT_MAINT (RS) a 
52 72 8F 9A 6 rk MOVZBL #*X72,R2 : SPECIFY LOOPBACK CODE 
E911 A 30 BRB 10$ 
¢ 3 208: : CHECK OTHER FUNCTIONS 
¢ 553 .ENDC 
04 93 ; 2¢ vhs 1 #10$M_LINE_OFFa-7 LINE OFF 
012A C5 36 UCBSB_TT MAINT (R55 ; 
0 8F H 9 : Bish FUCBSH TT_DSBL : DT SABLE LINE 
013A C5 3% 35 yCBSB_TT_AAINT(RS) ; 
ob 11 99 60 BRB 
10 93 0298 56 "«BITB = #10$M@_LINE_ON@-7,- : LINE ON 
012A cS “ % és ay $B-TT_MAINT(RS) a 
0 8F BA O2A 5 BICB #UCBSA TT_DSBL,- : REENABLE LINE 
012A C5 A $ ion UCB$B_TT_AAINT(RS) 
00000864"EF 16 O2A 68  JSB DZ$SET_LINE ; IMPLEMENT FUNCTION 
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vrai OUTPUT MODEM CONTROL ~ g-8 B=] 9be be: 98:28 TTDRVR.SRCIDZDRIVER.MAR:1 (1) 
: a iY .SBTTL OUTPUT MODEM CONTROL 
8 8 : DZ2SDS_SET = SET OUTPUT MODEM SIGNALS 
; ° $ FUNCTIONAL DESCRIPTION: 
8 ; THIS ROUTINE OUTPUTS THE OUTPUT MODEM SIGNALS FOR THE SPECIFIED UNIT 
p 5 : INPUTS: 
B : : R2 = LOW BYTE = SIGNALS TO ACTIVATE 
; § 3 HIGH BYTE= SIGNALS TO DEACTIVATE 
8) 30 ; RS = UBC ADDRESS 
5 3 ; OUTPUTS: 
B 9% : RO-R3 ARE USED. 
Be 8g 
B5 3 D211$DS_SET: 
54 OD Bb 98 PUSHL  R4 : SAVE 
0125 cs. 52 88 B 99 BISB  R2,UCBSB_TT_DS_TX(R5) : SET NEW OUTPUT SIGNALS 
52 é FB er BC 600 ASHL -8R2,R + ACCESS SIGNALS TO RESET 
01g cs : BA 02C1 601 BICB R2 ucage TT_DS_TX(RS) : RESET THEM 
4 34 AS C6 60¢ MOVL UCB L CRB(R5) : GET CRB ADDRESS 
53 2c BA OD CA 6 MOVL  a@CRBSC_INTD+VECSL_IDB(R4S.R 
$1 01255 01 01 EF OSKE 08 EXTZV #TTSV_DS_DTR.#1,UCBSB. TDS TX(Ra) RI 
oS 606 ete ae ~ "F GET CURRENT DTR FOR LINE 
tas 0106 C8 BR OOSDA 808 BIC UEBSUnTTCUNTTDIT CAS) .CRBGR DE DTRCRED ET ene CINE POSITION 
iv 16 AG O51 3 rats BISB RI cnese pz DTR(R4) ind fd Oe diame Samson 
A ; 
05 A 16 a4 9 E4 611 MOVB  CRBS$B_DZ~DTR(R4),5(R3) : UPDATE DTR STATUS FOR LINES 
54 8ED £9 61g POPL 4 
0 B56 Siz IF NF Cig 
ED 615 0232$DS_SET: 
54 DD O2ED 616 PUSHL R4 : SAVE 
0125 C 2 88 EF 61 ISB. R2 UCSB TT_DS_TX(R5) 3 SET NEW OUTPUT SIGNALS 
52 : F8 er F4 618 ASHL 8 R2,R : ACCESS SIGNALS TO RESET 
125 ¢ 2 BA O2F9 61 BICB = R2 ucags TT_DS_TX(R5) ; RESET THEM 
5 34 A D0 F 6 0 MOVL UCBSL_CRB(RS) ,R4 : GET CRB ADDRESS 
CBS OD 1 MOVL acngéc INTD+VECSL_IDB(R4S.R 
6 $ TIMEWAIT #100,70Z2LCS1SM_ACK,4(R3),W,. TRUE. : WAIT FOR READY 
7E 01246 C5 é MOVZWL UCBS$B/TT DS_TX-T(R55,-(SP5 * CREATE TEMP LOCATION 
© 3000 Be OAS 088958 ee ee 
OE 3 bE F 6 é CVTLW »4(R3) : SET NEW OUPUT MODEM SIGNALS 
BED 49 6 POPL 
0 45 6 : RSB 
46 629 .ENDC 
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Ot pss tcnateat SSEp=198¢ 04:95:55 ETTORVR.SRESDZDRiVER.man:1 "9° (9, 
, __ sSBTTL_ DZ=11 MODEM POLLER 
DZSTIMER = POLL FOR DZ-11 MODEM TRANSITIONS 
FUNCTIONAL DESCRIPTION: 


sets" tht 


ov 


OHFO9 DDD DW DW PAF S| PAPDAPAAPAAAAAOAAAAOSAASOOAADS OF 


THIS ROUTINE orrses FOR DZ-11 CONTROLLER MODEM 
TRANSITION. IT UPDATES THE INPUT MODEM STATUS FOR EACH 
LINE AND CALLS WHE CLASS TRANSITION ROUTINE FOR EACH LINE WITH 
CHANGE. 
INPUTS: 
RS = TQE ADDRESS 
OUTPUTS: 


RO = R4 DESTROYED 


PAAAAPOPSPOOSASAOSOAOASOSOSAS Ud 


DAA AAA ES BS BS BS BS BB AAA AAS 


NANA WIAA AA WIAA WIAA AAA AWAHIWID 
Se Se Oe Oe Be Oe Oe Se Se Oe Be Oe Ss Se Se BeBe Sees 
+> 


AOA MNMNANNAMNMAE BEER RRR ERE PREP PPP EPPS 


é 
652 DZSTIMER 
0060 8F 8B ‘ #OMCRS 
54 Q0000000'EF DE 6 i MOVAL DZ$L RRL ALUP, RG : GET DZ TIMER LIST HEAD 
54 64 09 6 2 MOVL  (R4),R4 : GET NEXT CRB ADDRESS 
0 1 6 BNEQ : PROCESS LINES FOR THIS CRB 
0060 8F BA 6 POPR #M<RS,R6> : RESTORE REGI 
05 65 RSB + RETURN FROM TIMER IMTERRUPT 
eee 3 TEST LINES ON THIS CONTROLLER FOR A TRANSITION 
663 - 
664 15$: 
54 DD 665 PUSHL R4 : SAVE TIMER THREAD 
54 18 C2 66 SUBL  § #CRBSL_DZ_MODEM,R4 ; § T ACTUAL CRB ADDRESS 
2¢ B40 ry MOVL  aCRBSL~ INTD+VECSL I DB(R4S,R3 ; GET CSR ADDRESS 
06 As 1C AG) OBI 66 CMPW = CRB$B_BZ_RING(R4) 76 eas) ANY’ TRANSITIONS 
78 («13 69 669 BEQL 60% : NONE 
6B 671 ; FIND WHICH SIGNALS CHANGED AND UPDATE THEM 
52 06 A3 90 0368 o8 : MOVB 6(R3),R2 GET NEW RING 
50 1C A4 2 ¢F 674 XORB3 R .CRB$B_DZ -RING(R4), RO; FIND TRANSIT LONED LINES 
1C AG 4 675 MOVB C§RB$B_D2~RING(R4) UPDATE CURRENT RING 
52. O7 A 28 676 MOVB ri (R3)_R GET NEW CARRIER 
56 1D AG 3 D O37C «667 XORB3 Re RbSS _DZ_CARRIER(R4), S 
; 1 £8 BISB *R LAG LINES WITH TRANSITIONED CARRIER 
wae 5 4 67 VB  R2,CRBSB_DZ_CARRIER(R4) ; Segre CURRENT CARRIER 
6 ; PROCESS TRANSITIONED LINES 
51 50 08 00 FA é 4508: FFS #0,#8,R0,R1 ; FIND NEXT LINE NEEDING SERVICE 
; D 5 BEQL + DONE 
0050 51 € F 6 6 i“ BBCC = R1, RO, 55$ : RESET ATTENTION BIT FOR THIS LINE 
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Peon OO8 DZ-11 MODEM POLLER ” g-SEF =}382 re $e 29 TTDRVR. SREIDZD RIVER.MAR:1 (1) 
56 2C AG OD 9 MOVL  CRBSL_INTD+V cst DB(R4) ,R6 
55. 18 A641 09 $7 § MOVE [pes LIUCBLST REIL cibp Res i GET UCB FOR THAT LINE 
E544 05 15 €1 039 9 BBC #TTSV_MODEM, UCBSL _DEVDEPEND(R ),50$ 
A 9 ; SKIP [F NOT MODEM LINE 
A 9 DSBINT UCBSB_D1 pine ; RAISE TO DEVICE IPL 
56 10 AG O01 51 EF O3AA 694 EXTZV R1,# egress Dz ZARING(RA), »R6 : GET RING FOR THAT LINE 
01 06 : FO 80 95 INSV RO, #TF$V_D ; UPDATE IT IN UCB 
124 B 3% uChsB. TT - “ACY ag) 
56 1D AG 01. 51.—sO#F 7 69 EXTZV R1,#1-CRBSB-D2_CARRIER(R4),R6  ; GET CD FOR THAT LINE 
01 05 § FO O38D 98 INSV RO, #TESV_DS~CARRIER,#1,- : UPDATE IT IN UCB 
134 : C1 69 UCBS$B_TT"DS~ RCV (RS) 
0 8F 88 034 0 BISB &#<TT$A_DS DSR'TTSM_DS_CTS>,- |; ASSUME CTS AND DSR ALWAYS SET 
1g4 C (7 701 UCB$B_TT_BS_RCV(R5) 
52. 0124 ¢ 90 O3CA 7 é MOVB UCBSB-TT"DS-RCV(R5),.R2 ; GET CURRENT RECV MODEM STATUS 
1 9A O3CF 7 MOVZBL #MODEMSC-DATASET,RI : SIGNAL DATASET TRANSITION 
56 60114 ¢5~—soi Dg 704 MOVL UCBSL_TT“CLASS(R5),R6  : GET CLASS VECTOR TABLE 
if BB 0307 705 PUSHR #*M<RO,RT,R2,R3,R4> t SAVE VOLITAL REGISTERS 
0C B6 4616 «(0309 «7 5 J$B @CLASS. DS. TRAN(R6) + SIGNAL TRANSITION 
1F BA O30C 7 POPR #*M<ROTR1>R2,R3,R4> + RESTORE REGISTERS 
DE 708 ENBINT + RESTORE IPL 
AS 11 O3E1 709 BRB 50$ 
OAD oo 
54 BEDO O3E ar POPL RG ; RESTORE TIMER THREAD 
FF68 31 O3E6 71 BRW 5$ 
369714 
O3E9 715 
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Z11$INTINP: : : DZ=11 INPUT INTERRUPTS 
GET THE CSR ADDRESS 


MOVL a(SP)+,R4 GET THE IDB ADDRESS 


vou O00" RECEIVER INTERRUPT. SERIVE 

ay pte .SBTTL RECEIVER INTERRUPT SERIVCE 

; DZSINTINP = DZ RECEIVER READY INTERRUPTS 

| | 3 FUNCTIONAL DESCRIPTION: 
: THIS ROUTINE IS ENTERED WHEN A CHARACTER IS AVAILABLE IN THE UNIT'S 

724 ; SILO. THE CHARACTER IS EXTRACTED AND IS PASSED TO THE ASSOCIATED 
725 ; CLASS DRIVER. IF THE CLASS DRIVER RETURNS CHARACTERS(S) THEN NEW 
f g ; OUTPUT IT INITIATED (NORMALLY ECHO). 
4 3 INPUTS: 
g p O0(SP) = ADDRESS OF IDB 
, 3 ; IMPLICIT INPUTS: 
7 , ; RO,R1,R2,R3,R4,R5 ARE SAVED ON STACK. 

$ OUTPUTS: 

8 ; THE INTERRUPT IS DISMISSED WHEN THE SILO IS EMPTY. 

16 

: 
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7 
7 
3 7 
7 
7 
74 
74 
74 
i 
74 
54 OD 74 PUSHL + SAVE IDB ADDRESS 
50 ny) £4 MOVL  (R4),RO : GET THE CSR ADDRESS 
749 : GET THE CHARACTER FROM THE INTERFACE 
53 02 ag 8 fat 25$:  MOVW 2(RO),R3 : GET THE CHARACTER,ERRORS AND LINE NUMBER 
136 BGEQ  100$ [SILO EMPTY 
53 7000 8F 8B ie BITW  #<DZRCVSM_PARERR>!- 
754 <DZRCVSM_OVERRUN> | - 
755 <DZRCVSM_FRAMER>,R3 s ERRORS? 
48 1 7 : BNEQ [YES,PROCESS THEM 
52 53 F , <2 757 27$ ASHL #-8,R3,R : GEf THE LINE NUMBER 
52. FFFFFFF8 BF CA 04 138 BICL  #*C<7>-R : 
53 A 06 7 MOVZBL R3,R + CLEAR THE HIGH BYTES OF CHARACTER 
55 1B A4s2) OD £60 MOVL $i_UCBLST(R4)CR2].R5 ; GET THE UCB FOR THAT LIN 
DD «13 04 7 BEQL : IF EQL THEN THER 
9110 DS 416 04 16¢ JSB @UCBSL_TT_PUTNXT(RS) |; BUFFER THE CHARACTER 
108 ¢5) 9504 £6 TSTB $8_TT_OUTYPE(RS) : DID HE RETURN ANYTHING TO OUTPUT 
17 1 764 BLEQ : NONE OR STRING OUTPUT 
0108 CS 20 4 765 MOVB oR ucasu TT_HOLD(RS) |; SAVE THE CHARACTER IN TANK 
F 166 BISW #TfY$M_TANK7HOLD,- t SIGNAL CHARACTER IN TANK 
1 C3 4 £6 UCB$W_TT_HOCD(RSS 
06 a0 010665 A 68 BISW UCBSW-TT“UNITBIT(RS) ,4(RO) : ENABLE LINE 
4 6€ p id: 30$: MOVL (SP),R4 ; GET IDB ADDRESS 
BC 4 £20 ri BRB > CONTINUE 
F9 «13 «04 if BEQL 30% : NO CHARACTER 
0800 8F AB 04 7 BISW  #TTYSM_TANK_BURST,- : SIGNAL BURST 


FLERE Sth eli inl PT a Poe Sanit Sack 
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Mirai RECEIVER INTERRUPT SERIVCE™ at} 7 be:99:2 TTDRVR.SRCIDZDRIVER.MAR; 1 vw) v0 
108 ¢ 4 r4 UCB$W_TT_HOLD(RS) 
04 AO 8108 3 As 4 : 73 BISW yCBSW_TT_UNITBIT(RS) ,4 (RO) ; ENABLE LINE 
EA 1 ad i: BRB 
44 A: : SILO EMPTY OR CHARACTER IN ERROR 
44 79 : 
a4 f p Sos: 
a4 7 ; t PROCESS PARITY, FRAME OR OVERRUN ERROR 
52. 53 F8 F 78 044 f 4 ASHL #-8,R3,R ; GET LINE NUMBER 
52. FFFFFFF® BF CA 044 f 5 BICL #*C<7>.R : 
55 18 A442) OCG : MOVL DBSL_OCBLST(R4)(R2I.R5; GET UCB ADDRESS 
OA 13 04 7 BEQL : IF EQGL THEN NO UCB 
S2 0114 C5 0D 439 f 8 MOVL § UCBSL_TT_CLASS(R5),R2  ; GET CLASS DISPATCH 
14 B2 16 045€ 790 60S: JSB a LASS_READERROR (R2) : SIGNAL ERROR 
98 12 0461 791 BNEQ 2 : BRANCH WITH CHARACTER TO MAIN PATH 
60 0080 8F B3 046 196 70$:  BITwW  #*x080, (RO) : VALID CHARACTER IN SILO NOW? 
(6 12 0468 79 BNEQ 30S : IF NEQ THEN YES 
5E 04 co 46A 794 1008: ADDL #4,SP : REMOVE IDB ADDRESS 
5 —E 7D 46D 795 MOV (SP)+,RO : RESTORE REGISTERS 
52 BE OO 7D CO 9 79 MOVQ  (SP)+.R2 : 
54 «BE 07D «(0473S 79 MOVQ  (SP)+.R4 ; 
02 476 798 REI 
477 799 
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Moen OO8 RECEIVER INTERRUPT SERIVCE™> ~$ee = 1382 ve ¢ 22 }4 RCIDZDRIVER. MART Gy 
4? t IF NDF DZV 
f 3 D2-32 INPUT INTERRUPT SERVICE 
47 5 
are gc DZ32SINTINP: : : 02-32 INPUT INTERRUPTS 
itt 8: GET THE CSR ADDRESS 
54 2 47 10° MOVL a(SP)+,R4 ; GET THE IDB ADDRESS 
54 DD 047A 811 PUSH 4 + SAVE IDB ADORE ss 
50 64 DO O47¢ 1 MOVL (RG : GET THE CSR ADDRESS 
47F BT BICW AccDiCnsh RCVINT>!= : DISABLE E Receiven | INTERRUPTS 
4 9 14 <ORCSR M_DS_ENAB>>,= 3 DISABLE de A SET INTERRUPTS 
60 0042 8F r ? 12 (RO) ; DZ-32 during the interrupt service routine 
4 4 1? j ? GET THE CHARACTER FROM THE INTERFACE 
53 02 AO BO 0484 § 55s: Movw 2R0), »R3 GET THE 1 GHARACTER, ERRORS AND LINE NUMBER 
75 18 0488 0 BGEQ 00$ iSILO EMP 
53 7000 8F B83 048A 1 BITW  #<DZRCVSM_PARERR>!- 
48F ; <DZRCVSM_OVERRUN> | - ERRORS? 
GBF <DZRCVSM_FRAMER> ,R3 S ERRORS? 
4A iF 48F 4 BNEQ 30 SYES,PROCESS THEM 
so? boerete BE 7B 2431 Bee 278: ASHE pti. R ; GET THE LINE NUMBER 
53 gf § 49D 5 MOVZBL : CLEAR THE HIGH, BYTES OF CHARACTER 
55 1B A442 OD 4A0 8 OVL Foes _UCBLST(R4)CR2],R5 ; GET THE UCB FOR THAT LINE 
DD 13 O4A BEQL : IF EQL THEN 4 T 
9110 DS 16 O4A7 0 JSB @UCBSL_TT_PUTNXT(R5) |: BUFFER THE CHARACTER 
108 ¢5 AB 1 TSTB  UCB$B_TT_OUTYPE(RS) : DID HE RETURN ANYTHING TO OUTPUT 
1F GAF ¢ BLEQ ‘ $ : NONE OR STRING OUTPUT 
0108 cS. 53 481 MOVB UCBs, Mi -HOLD(RS) SAVE THE CHARACTER IN TANK 
9499 BF 4B6 4 BISW aT tYsn “HOL : SIGNAL CHARACTER IN TANK 
108 ¢5 4BA 5 a UCBSW_ tT ACD GRSS 
54 6f 4B $ "MOVE «= (SP), RG ; RESTORE IDB ADDRESS 
0106 ¢ sc 8 BISB UCBSW_TT_UNITBIT(RS).- : ENABLE LINE 
OE Ad 4C 1DB$B~TT~ ENABLE (R4) 
07 AO OE AG C6 40 MOVB = IDB$B7TT~ENABLE(R4) ,7(RO) 
54 «6E ¢B 4g 30$:  MOVL (SP) RG : GET IDB ADDRESS 
B4 ¢ 43 ne BRB 25$ + CONTINUE 
9 D 45  BEQ 308 > NO CHARACTER 
08 8F D 46 BISW #TTYSM_TANK BURST. ~ > SIGNAL BURST 
108 ¢5 4D 4 ycasi_ TT_HOCD(R 
E2 409 43 BRB 
408 9: : SILO EMPTY OR CHARACTER IN ERROR 
ree | § bos: 
4B 43 : PROCESS PARITY, FRAME OR OVERRUN ERROR 
52 Fg er 4D 6 ; ASHL #-8,R3,R : GET LINE NUMBER 
5 ehivert F E Bick #°C<7>_R : 


L 13 /VMS Macro V04=00 Page 21 
RECEIVER INTERRUPT SERVER™ « SrSEb=1986 02:98:55 ET FORVR. SRESDZDRIVER. MAR; 1 (1) 
yonnOUn. RECEIVER INTERRUPT. SERIVEE SEP=1 
mat 4E7 MOVL BSL_UCBLST(R4)CR2I,R5 ; A ele ripe aa uce 
onl i dee MOVE UCBSL_TT_CLASS(R5),R2 ; GET CLASS DISPATCH 
$2. 0114 C5 TT. , 
1482 16 Our = £ enw: 7 TT TO MAIN PATH 
a PY D CH 
a8 QcF8 Bee 708: BiTW —#°X080, (ROD t TP NEO THEN YES 
60 0080 SF BY QUE B64 gi 68 Rs 
1008: ; TEST FOR MODEM 
go po Gurr Bey BBS, —_ADICERSV_DS. CHG.R3,2008 : BRANCH IF MODEM. TRANSITION 
1253 OB EB 030 Blsw #<<DICSRSMRCVINTSI= ENABLE RECEIVER INTERRUPTS. 
AB 05 ; : BISH OPCSRSH.DS-ENABD>.- | _ ENABLE DPSS. DATA SET INTERRU 
5 CRO ee E ego BEFORE EXtTING 
042 BF 507 871 sfUs : REMOVE IDB ADDRESS 
°s ¢ $6 OOe Bg nova (Sb)+,R : RESTORE REGISTERS 
p E Batt BoE Mova (Sp) «Re 
54 E tp 514 75 nye (SP)+,R ; 
R . 
$0 Dd 0518 87? 200s: PUSH. RO : cet Ney RECEIVE MODEM SIGNALS 
PRREFFS BF Gm Ose By8 BICLS BC 7S RS, R2 Bt 
52 53. FFFFFEFS OF 50 0826 880 QVL” — JDBSL_UCBLST(R4)CR2I,R5 ; GET ASSO 
Se eee ee ie ROVE RS, UCBSB_TT_DS_ARCV(RS) | UPDATE, INPUT MODEM SIGNALS 
aa 53 eA i MOVIBL thee. -DATASET,R1 HODEM TRANS 
i MOVE UCase. Tt SCLASS(RS) .R3_ ACCESS CLASS. VECTORS 
3 DO 0338 885 TSB BECASS DS TRANCRSD : SIGNAL TRANSITI 
75 NE BS 8085p JSB @CLASS_DS_T ; SIGNAL TRA 
: 50 BERD 0540 i or i Ole : DISMISS INTERRUPT 
Free 0848 BBS. .ENDC 


RSB ; RETURN TO CALLER 
MOVB R3.UCBSW TT_HOLD(RS) |; SAVE OUTPUT CHARACTER 


M13 
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raat START 1/0 ROUTINE ” g-§ p=} 82:46:28 TTDRVR.SREIDZDRIVER.MAR:1 | o” 4) 
4 3 . .SBTTL START 1/0 ROUTINE 
4 : $ DZSSTARTIO = START 1/0 OERATION ON D2 
4 ? ; FUNCTIONAL DESCRIPTION: 
4 97 : THIS ROUTINE IS ENTERED FROM THE DEVICE INDEPENDENT TERMINAL STARTIO 
4 3 ; ROUTINE TO ENABLE OUTPUT INTERRUPTS ON AN IDLE DZ UNIT. 
54 : INPUTS: 
34 ; ; R3 = CHARACTER AND CC = PLUS 
24 03 ADDRESS AND CC = NEGATIVE 
34 9 ; RS = UCB ADDRESS 
i : OUTPUTS: 
34 : RS = UCB ADDRESS 
4 5211$STARTIO:: : START 1/0 ON UNIT 
4 BGEQ 208 : SINGLE CHARACTER 
4 BISW § #TTYSM_TANK_BURST,- + SIGNAL BURST ACTIVE 
4 UCBSW_TT HOCD(R5) 
4 10$ MOVL UCBSL~CRB(R5),R1 ; GET CRB OF UNIT 
5 @CRBSC_INTD+VECSL 1pB «R15 Ri; GET 
3 BISW  UCBSW_TT_UNITBIT(RS) ,4(R15 ; ENABLE LINE 
5 
5 
6 
6 
6 


WBDVMPIMOOOMO DS NAMM NAO OAAO 


R 
BISB CB$W_TT_UNITBiT(RS) , 1DB$B_TT_ENABLE (R4) 
MOVB DB$B-TT~ENABLE(R4) ,7(R1) 

RSB ; RETURN TO CALLER 


MOVB R3,UCB$W_TT_HOLD(RS) |; SAVE OUTPUT CHARACTER 
BISW #TfY$m_ TANK HOLD - : SIGNAL CHARACTER IN TANK 
ycpsu_TT_HOCD(R ) 


cS 53 
0400 &F BISW #TTY$M_TANK"HOLD,- t SIGNAL CHARACTER IN TANK 
0108 C5 uces TT HOLD (RSS 
e311 6 BRB 10$ 
6 IF NDF DZV 
DZ232$STARTIO : START 1/0 ON UNIT 
1€ 6 BGEQ 208 : SINGLE CHARACTER SPECIFIED 
9800 8F : BISW #TTYSM_TANK BURST .~ : SIGNAL BURST ACTIVE 
108 ¢5 UCBSW_TT_HOCD(R5) 
51 34 AS ? 10$ MOVL  UCBSL“CRB(R5) ,R1 : GET CRB OF UNIT 
54 OC A ? MOVL  CRBSL INTD+VECSL_1DB(R1) .RA : GET IDB ADDRESS 
64 7 MOVL  (R4)R : GET CSR ADDRESS 
AS 


BS SSSSSS Rw 


[=] 
& 
> 
— 
ww 
—— 
Oo oo 
— —©o 
SOwwvoo 
GAoroo 
owWProew— 
Wi UU OF 
oroc r-— 
MEooo 
SOOO OCOOOOOOOCOCOCOOOO OOOO OCOOOOOOOOOOO OOOO OOOOOOOOOOOOO 


aah ab Ab ab Ab eb db Ab db db 4b ab tb ab ab ah ah ah ab ah ah dh ab ah ah aha 


m+ +6 4 


=O ODWAOo 
=O OO NONE AD $$ 9 OD NAME WIN 2 OOO NA UE WI = 0 OD NOU EW" OOONOUS Wen 
=z 
oS 
<= 
= 


WODODODODOODOOVOOOOODODOODOODODODOODOODOOODOONOOO 


FF WWW A AMAIA RIPONINONONINONUN) SS 


s 
— 
a 
$23 


-ENDC 
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=1 “SEP- 224: - 
OPsRESUAE RONsxorr —-"Sc$EP=1984 Oas18:55 EMTDRUR.SReSBzDRivER.mar:1 "28° 2, 


«SBTTL PORT ROUTINES STOP,RESUME,XON,XOFF 


—s 
“no 
a5 


a) rll 


co 
a5 
fat ate 
z< 
me 
ons 


& 


+ 

pestorr - SEND XOFF 

DZSXON = ND XON 

DZ$STOP - STOP OUTPUT 

DZSABORT - ABORT CURRENT OUTPUT 
DZSRESUME = RESUME STOPPED OUTPUT 


FUNCTIONAL DESCRIPTION: 


THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
CONTROL OUTPUT ON THE PORT 


INPUTS: 

; RS = UCB ADDRESS 

; OUTPUTS: 

RS = UCB ADDRESS 
ENABLE LSB 

: SCHEDULE XOFF TO BE SEND 


SO edi dh edd dich shh ide edly edd dude sich “dude cl 


WDODOOOOOOOOOOOODOOOOOOOOOOOO0O0NO 


oo—>>>> >>>??? >>>r>>r>>>r>r>rr>rrrrrrr>r>rrr>, 


RHR ROSES OSES EAA AAREAD OOO OOO OS DOWODOOOOOOOOOOOOOOOO 
SSIS SSS SSS SD DPD PAP AAD III EB 
O08 NIA UE WP = S OOO NAME WI = SO OOO NIA NEW 9 OS OD NIAUNE OOO NOAUSW 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 ; 
5 3; INPUTS: 
3 : R3 = CHARACTER TO BE SENT AS FLOW CONTROL 
39 6211SXOFF : 
39 ; SCHEDULE XON TO BE SENT 
59 6211$X0N: 
0108 cS 0100 ef ag 59 BIS #TTYSM_TANK_PREMPT UCBSW_TT_HOLD(RS) : SCHEDULE XON 
010A CS.) 53 3A MOVB #3, UCBSB_TT~PREMPT (RS) : SAVE THE CHARACTER 
18 64 AS 01 €0 3A6 BBS #UCBSV_INT,UCBSW_STS(R5),10$ : JF output ACTIVE, 
51 Dd OSAB PUSHL 1 : SAVE A REGISTER 
51 24 A5 00 O5AD VL UCBSL CRB(RS),R1 : ACCESS CRB ADDRESS 
51 2¢ B81 00 0581 MOVL aCRBSC_INTD+VECSL 1p8(R1) RI : GET CSR ADDRESS 
04 a1 01 5 ae 383 gisw UCBSU_TT_UNITBIT(R »,4(R15 : ENABLE LINE 
0064 a5 O01 EC 3 sins BBSS § #UCBSV_INT,UCBS$W_STS(R5S),10$ ; SHOW OUTPUT ACTIVE 
05 05¢ "  RSB 
st DISABLE LSB 
C4 991 : STOP PORT OUTPUT 
5¢4 «992: 
3c bz$sTOP: 
9200 BF AB 05C4 94 BISW #TTYSM_TANK_STOP,- ; SCHEDULE STOP 
108 ¢5 5¢8 30995 UCB$W_TT_HOCD(RSS 
OF beer 899 
c¢ 998 : ABORT ANY CURRENT PORT OUTPUT ACTIVITY 


ott 


0108 


0108 C5 


15 0108 


0108 ¢5 


010A 
1F 64 


51 
0200 8F 


CS (0B 


05 


oO 
co 
a5 
eae 
zc 


DDD DDD DEDEDE DDD DDD. TTT 
PPP PPP PPE P\WWMAININIOOCOCO BM MMMMMMMMMmMmmNnoovwno 


oa 
NN NIAAA MII 


SOOCSOSCSOOOSOOSOOSOOSOOOOOOOOOOOOOSOOSOSOOSOSOOOOOOOOOOCOCOOOOOCOOOOOOOCOO AA 


PPA QMO COD. De PITTI = 9 CPTI OOF DD BO OOF FF COOP PAO OO NPI OO 


PAA AAAAAAA AAD 


me 
“nn 


wi oe. 


$: BICW 
BBS 


Z32SXOFF : 


me ee ed ed dd dS 2 a a a 2 te 


0 
1 
§ 
4 
5 
? 
8 
9 
0 
1 
ir 
4 
2: 
2: 
D : 
0 DZ32$xON: 

1 BISW 
+g MOVB 
4 BBS 
5 
; 
| 
4 
5 
6 


pect 
ON, XOF F 


? BBCC 
§ 10$ 
¢ TIMSET 1 
$ RSB 
09 | RESUME PREVIOUSLY STOPPED PORT OUTPUT 
12 211SRESUME 
1 
14 
12 
13 
19 


TIMSET 
BRB 


MOVZWL 


RSB 
- DISABLE 


#TTYSV_TANK BURST ,UCBSU_TT_HOLD(RS) ,~ 


R 
#TTYSM_TANK_STOP- 
UCBSW_TT 


HOLD (RS) 
aitysv- TANK “BURST. UCB$W_TT_HOLD(R5) ,20$ 


1 
30$ 


UCBSW_TT_OUTLEN(R5) ,R? 


; SCHEDULE XOFF TO BE SENT 


0 

0 “te TIMSET RI.R17 

0 BBS #UCBSV_INT CBSy STS(RS) ,40$ 
MOVL UCBSL_CRB 

0 MOVL acnest INTDevECsL 1B (RI) R1 
BISW UCB$W T(RS) .4(R15 

0 as BBSS yoesso ings Neesy _STS(R5) ,40$ 

0 POPL = R1 

0 RSB 

IF NDF DZV 
0 .ENABLE LSB 
0 


SCHEDULE XON TO BE SENT 


#TTYSM_ TANK_PREMPT ,U pw. TT_HOLD(R5) 


R3,UCBSB_TT—PREMPT (RS) 
#UCBSV_INT,UCBSW_STS(R5),10$ 
#*A<R 


UcBSe “ERB 
CREEL N pevECSL. IDB(R1) ,R4 


(R4) 
UCBSW_ TT_UNITBIT(R5S) ,IDBSB_TT ENABLE (R4)* 


1ppse- WT ENABLE (RA), ?(R1) ~ 
fucosv. INT, UCBS$W_STS(R5),10$ 


LSB 


"SSEp=19be ba:48:55 EPTORVR.s 


cro V04-00 
REID DZDRIVER.MAR; 1 


re it 


; RESET BURST ACTIVE 


SET A TIMEOUT 
IN CASE OUTPUT ACTIVE 


SAVE A REGISTER 
RESET STOP CONDITIONS 


BURST IN PROGRESS 
CHAR IN TANK OR OTHER 


GET NUMBER CHARACTERS 


I 
SS_CRB ADDRESS 
one Ss 


SCHEDULE XON 
SAVE Orne Haasan A 


REGISTERS 
S_CRB ADDRESS 
B ADDRESS 
SR ADDRESS 

; ENABLE LINE 


; SHOW OUTPUT ACTIVE 


DZDRIVER - Port Driver for 02-11 su 16-SEP-1 4: AX/VMS Macro v04-00 Page 25 
V wt PORT ROUTINES STOP,RE Lupe PRON. XOFF g-sEFe | 7 8¢ } 30 TTDRVR.S REID DZDRIVER.MAR;1 . @) 
i 188 
} ; RESUME STOPPED OUTPUT 
76 1 é 5232SRESUME : 
12 6B 4 1 PUSHR #*M<R1,R4> 3; SAVE REGISTERS 
0108 cS 0200 8F AA 0678 1063 5$: BICW ATTYSM, TANK_STOP=- 
67F 1064 UCBSW_ TT_HOLD(RS) 3; RESET inp CONDITIONS 
15 0108 C5 0B €0 O67F 1065 BBS #itysv- TANK BURST ,,UCBSW_TT_HOLD(R5),20$ ; BURST IN PROGRES 
6 1 28 10$: ; CHAR IN TANK OR OTHER 
6 1 TIMSET 1 3; TIME OUT 
1F 11 oeF | 8 208 BRB 30$ 
51 0120 C5 x¢ 69A 1070 MOVZWL UCBSW_TT_OUTLEN(RS) ,R1 
ba ; 4 30$ TIMSET R1,R1~ ; SET THE TIMER 
18 64 AS O01 EO 0689 1 ig BBS eyceer in cosy. STS(R5) ,40$ : SKIP IF OUTPUT ON 
51 $e AS dO rt 1074 MOVL UCBSL_ 3; ACCESS CS ADDRESS 
54 C Al 00 C 1075 MOVL CRBSL i et IDB(R1) ,R4 ; GET IDB ADDRESS 
64 dO 6C6 1076 MOVL CRED CRI 3; GET CSR ADDRESS 
OE A4 0106 C5 88 Bee? 1977 BISB UCBSW_TT a ie Hs 1pes6. TT_ENABLE (R4) 3 ENABLE LINE 
07 OE AS «690 «O6CF 1078 MOVB 10B$B° TT MOLE CR 
00 64 AS 01 E2 0604 1079 BBSS puces0 IAT. UCBSW_ ST8RG) 40$ ; SHOW OUTPUT ACTIVE 
0609 1989 40$: 
12 BA 0609 1081 POPR #*M<R1,R4> 
05 0608 1086 RSB 
06DC 1083 .ENDC 


1-11 0 14 16-SEP=1984 02:24: : 
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«SBTTL OUTPUT INTERRUPT SERVICE 


0 
wv 
vo 
c7 
ae 


vou=000" out 


—_—— 
me 
Cc 
vu 
=o 
wn 


MOVW (RO) ,R2 ; GET THE CSR VALUE 
BGEQ 0211 gui EXIT ; NO MORE LINE 
ASHL #-8,R2,R ‘ GET THE LINE NUMBER 
F F BICL #*C<7>,R : 
55 8 MOVL DBSL_UCBLST(R4)CR2],R5; as THE UCB ADDRESS 
1 211_6UT_LOOP : IF EQL THEN DISMISS 


@ 
m 
© 
a 
2a oOo 


; CHECK FO 
CMPB 
BEQL 

: LOOK FOR 


uw 
row 
—~ 
why 
"MN 
— 
_—wT uw 
™ 
en os | 
2» ooc 
- 
m &cooom 
—rmnsnvoO 
~O CVooOn—W 
— > i] 
Soooooooooooooooo: 
AOao 
is Do | 


YSM_TANK BURST@~B,~ ; ONLY BURST ACTIVE? 
$W_TT_HOCD+1(R5 
1_BuRST : YES, CONTINUE BURST 


EXT OUTPUT STATE IN TANK 


_ 
ive) 
oce2 


Driver 
INTERR 
SDE 1088 s+ 
DC 5 $ DZSINTOUT = D211 OUTPUT INTERRUPT SERVICE 
DC § ; FUNCTIONAL DESCRIPTION: 
60C 1 3 + THIS ROUTINE 1S ENTERED WHEN THE D2-11 FINDS A LINE ENABLED 
60C 1 36 : AND AN EMPTY UART. THE CORRESPONDING uce 1S FOUN 
6p 1093 : ANY OUTSTANDING PORT au UTPUT IS DONE. WHEN ALL OUTS ANDI NG PORT 
DC 1094 : OUTPUT IS COMPLETED 7 THE PL ASS DRIVER IS CALLED TO RETURN THE NEXT 
60C 1095 : CHARACTER OR STRING TO BE OUTPUT. IF NO MORE OUTPUT IS FOUND, THEN 
gp¢ %6 ; THE LINE IS DISBA Yep.” 
ép¢ 38 : INPUTS: 
O60¢ i 9 : $P(00) = ADDRESS OF THE IDB 
dép¢ 1 2 : IMPLICIT INPUTS: 
d6p¢ 1 4 : RO,R1,R2,R3,R4,R5 SAVED ON THE STACK. 
bép¢ i $ : OUTPUTS: 
0606 11 8 : THE INTERRUPT IS DISMISSED. 
tae 
O6DC 1111 6211_OUT_EXIT: : EXIT OUTPUT INTERRUPT 
SE 04 CO O6DC 11 é ADDL §=—s-s«#4,, SP + REMOVE IDB ADDRESS 
se a Ieapelentces 
54 «8E) O7D Oees 1115 MOVa (SP)+.R4 : 
02 6e8 1 é REI : DISMISS INTERRUPT 
Oee9 I : DZ11$INTOUT:: : DZ-11 OUTPUT INTERRUPT SERVICE 
06E9 1120 D211_OUT_LOOP: 
54 00 BE DO 0669 1121 MOVL a SP),R4 : GET THE IDB ADDRESS 
0 64 »00 GED 1 : MOVL  (R4),RO : GET THE CSR ADDRESS 
oF i 4 : GET THE LINE INFO FROM THE CSR 
11 
HF 
11 § 
A 1130 
1 1 1 
1138 
1134 
HE 
A 11 $ 
D 11 : 
F 11 
F 1140 
F 1141 


SSOSOSOOOOOOCOTT™ 


SSO 
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vara OUTPUT INTERRUPT SERVICE Breer bs bari S:8s LTT TUNS Bec tl fF mans1 P28e 27, 
70F 114 
53 0109S 06 00 EA 70 1128 FFS #046 UCBSW_TT_HOLD+1(R5) ,R3 
716 1144 CASE R3.TYPE=B,<= : DISPATCH 
716 1145 02711_PREMPT,- + SEND PREMPT CHARACTER 
71 1146 0211-STOP,- : STOP OUTPUT 
716 114 0211-CHAR,= ; CHAR_IN TANK 
f 1148 D211 BURSF, - + BURST IN PROGRESS 
7 1150 ; 
, 1131 : NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 AS 03 8A , 1138 ; BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
6 1135 : CALL CLASS DRIVER FOR MORE OUTPUT 
010C DS) «160726 1189 ; JSB @UCBSL_TT_GETNXT(RS) : GET THE NEXT CHARACTER 
01 FF 8F 0108 C5 8F O72A 1138 CASEB UCB$B_TT_OUTYPE(RS) ,#-1,41; OPTOMIZE FOR THE SINGLE 
i 1139 ; CHARACTER CASE BY SETTING THE 
0017" 0731 1161 18: .WORD 0211_START_BURST-1$ : BURST SPECIFIED 
000A" 07 : 1168 “WORD 50$-T$ + NONE 
07 3 1164 : OUTPUT A CHARACTER TO THE DZ-11 
06 A0 53 «98 oF 5 1166 20$:  MOVZBW R3,6(RO) : OUTPUT CHARACTER 
AE 11 0739 1167 BRB 0211_oUT_LOOP 
0738 1168 ; 
8? : 116? 3 DISABLE OUTPUT ON THIS LINE 
738 1171 50s: 
01 €0 O76 1128 BBS #UCBS$V_INT,- : IF INT EXP, THEN DON'T RESET, 
AD 64 AS 073D 117 UCBS$W_STS(R5) ,DZ11_OUT_LOOP 
15 Vie ; COULD HAVE BEEN SET DURING CALLBACK 
04 AO 0106 CS AA 0740 1126 BICW UCBSW_TT_UNITBIT(RS) ,4(RO) ; RESET THE OUTPUT ENABLE 
Al 11 0746 1178 BRB 0211_OuT"LOOP 
0748 117 
i 1180 D2Z11_START_BURST: 
0800 8F AB 0748 1181 BISW  #TTYSM_TANK_BURST,- ; SIGNAL BURST ACTIVE 
0108 C5 rac 1 é UCBSW_TT_HOCD(R5) 
Ore 1 , : CONTINUE BURST OUTPUT 
74F (11 6 6211_BURST: 
orn D5 90 rar 1 MOVB QUCBSL_TT_OUTADR(RS) ,~ ; OUTPUT NEXT BYTE 
ort C3 v6 tee 11 § INCL UCBSL_TT_OUTADR(RS) : UPDATE POINTER 
12 B7 0759 1190 DECW  UCBSW~TT~OUTLEN(RS) : UPDATE COUNT 
bh 12 23D 1191 BNEQ 0211 GUT"LOOP : NOT LAST CHARACTER 
9800 F AA O75F 119 BICw  #TTYSM_ TRNK BURST ~ : RESET BURST ACTIVE 
10 ¢ 763 (119 UCBS$W_TT_HOCD(R5) 
FFBO 031 766 1194 BRW 0211_OUT“LOOP 
83 1196 t OUTPUT SINGLE CHARACTER 
769 119 : 
769 1198 6211_CHAR: 
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ERVICE ~SEer]ORe Bei Fb:22 ANC NMS Macro y pee - Tat 
N TAN 
TY 


river 
NTERR 
06 AO 01 £5 90 0769 1199 MOVB  UCB$W_TT HOLD(R5) .6(RO) ; OUTPUT CHAR I 
400 8F AA O76F 1 BICW  #TTY$M_ TANK OLD, + SHOW TANK EMP 
1 5 773 «1 UCBSu TT HCD CR } 
FF 31 a BRW 0211_OUT“LO 
779 1204 : STOP THE OUTPUT 
one 1005 : 
109 1206 6211_sTOP: 
03 8A 0779 1 BICB #UCBSM_INT! cBSM_ TIM,- 
64 A 77B 1 : UCB$W_STS(R5) RESET OUTPUT ACTIVE 
04 a0 0106 C5 AA 0770 1 BICw  UCB$W TTUNITBIT(RS), 4(RO) ; RESET THE OUTPUT ENABLE 
FF63 31 , 10 BRW 0211_OuT~LOOP 
07 é 1g ENABLE LSB 
07 6 1214 SEND XON OR XOFF CHARACTER 
786 1215 : 
786 1 if 
786 1217 DZ11_PREMPT: 
0100 8F 786 1218 BICW  #TTYSM_TANK_PREMPT,- ——- ‘RESET XOFF STATE 
0108 C5 78A 1219 UCBSW_TT_HOCD(R5) 
06 AO 010A C5 90 07 p 1 20 MOVB UCB$B7TT“PREMPT(RS),6(RO); OUTPUT CHARACTER 
FF53 31 «0793 «1221 BRW 0211_OuT~LOOP 
0796 1 32 DISABLE CsB 
0796 12 


o 
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DZDRIVER = Por 
Vv O05 OUTPU SERVICE “SEP=1 TTORVR. SRC REID DZDRIVER.MAR; 1 (1) 


27 
Cc 
us 
=o 


IF NDF DZV 
$ DZ2=32 OUTPUT INTERRUPT SERVICE CODE 


e 
R 
4 
1559 
Hi 
12380 D232_OUT_EXIT: : EXIT OUTPUT INTERRUPT 
0 1231 KDDL 6s #4, SP + REMOVE IDB ADDRESS 
1 : MOva (SP)+ RO : RESTORE REGISTERS 
1 MOVa (SP)4-R ; 
1234 MOVa  (SP)+.R4 : 
ZA 5 REI t DISMISS INTERRUPT 
7A 1 5 Smt : DZ-32 OUTPUT INTERRUPT SERVICE 
7A3 1238 D232_OUT OOP: 
54 00 BE DO O7A3 1239 a(SP),R4 : GET THE IDB ADDRESS 
0 64 00 Oar 40 oe (R4) RO : GET THE CSR ADDRESS 
7AA 1 4g ; GET THE LINE INFO FROM THE CSR 
Oo AN iSen | 
52. 60 BO O7AA 1245 MOV 4 : GET THE CSR VALUE 
E? 18 O7AD 1 46 BGEQ 0232 Ay EXIT 
othe Oe EB eomlecponn 
55 1B AG42 09 7BB 1249 MOVL Ip nfceustcraocrea, RS; "GET THE UCB ADDRESS 
oe orc 20 BEQL ; IF EQL THEN DISMISS 
ore 3g : CHECK FOR euist active ON LINE 
91 ore 1254 ° CMPB #TTYSA TANK BURS TAB, - ; ONLY BURST ACTIVE? 
0109 08 07€4 1255 Ucesu WT gfOCD+1 (RS 
13 Orc? 36 BEQL  0232_6 : YES, CONTINUE BURST 
o7¢9 1258 : LOOK FOR NEXT OUTPUT STATE IN TANK 
Ft 1500 
53 0109S 06 00 EA ares 61 FPS. #046 #6 sucesu TT_HOLD+1(R5),R3 emia 
700 1 86 ny WeEea sc - : SEND PREMPT CHARACTERS 
tDO 1568 BFa5-Fln’ ¢ BAAR SN TANK 
700 1 66 D2 “Burst, - : BURST IN PROGRESS 
Bo ss : 
£pe $3 : NO PENDING DATA = LOOK FOR NEXT CHARACTER 
64 05 03 8A 2p 4 BICB #UCBSM_TIM!UCBSM_INT,UCBSW_STS(R5); CLEAR TIMEOUT AND EXPECTED 
3 rs $ CALL CLASS DRIVER FOR MORE OUTPUT 
10C DS) «=616—«O7EO «1075 ° JSB @UCBSL_TT_GETNXT(RS) GET THE NEXT oGNARACTER 
T_ GUTYPE(RS) ,#-1, in; OPTOMIZE FOR THE SINGLE 
01 «FF 8F tts cS) OS re fi CASEB UCB$B_TT_OUTYPE(RS  EuRRAc TER cA THE SINGLE | 
0022" 768 1 8 1$: WORD 732 START _BURST-18 BURST SPECIFIED 
' ZED 80 “WORD 3-7 > NONE 
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yal tt OUTPUT INTERRUPT SERVICE iets 7 be: 98:20 TTDRVR.SRCIDZDRIVER.MAR; 1 . 
er é y OUTPUT A CHARACTER TO THE 02-32 
06 AO 53 39 cee 1284 20$:  MOVB  R3,6(RO) : OUTPUT CHARACTER 
FFAD 31 i BRW 02$2_o0uT_LOOP 
7F 1 3 
i 8 ; DISABLE OUTPUT ON THIS LINE 
7F6 1290 50s 
01 €0 O7F6 1291 BBS #UCBSV_INT,- : IF INT EXP, THEN DON'T RESET, 
AB 64 AS 778 1 36 UCBSW_STS(RS) ,D232_OUT_LOOP 
ore ! 37 ; COULD HAVE BEEN SET DURING CALLBACK 
54 90 BE DO O7FB 1295 MOVL a(SP),R4 : GET IDB ADDRESS 
0106 CS) ss BA sC«OO7FF C1 %6 BICB UCBS$W.TT_UNITBIT(RS),- : RESET THE OUTPUT ENABLE 
OE A 3 129 1DB$B- TT ENABLE (R4) 
07 AO OE AG 30 1 38 MOVB DBS TT“ENABLE (R4) ,7(RO) 
F963 A 129 BRW 0232_OUT~LOOP 
300 1301 
0D 1 j D232_START_BURST: 
0800 8F As O80D 1 BISW #TTYSM_TANK BURST,- : SIGNAL BURST ACTIVE 
0108 C5 11 1304 UCB$W_TT_HOCD(R5) 
14 1305 0232_BURST: 
ole Ds 90 6 14 06 MOVB QUCBSL_TT_OUTADR(RS) , ~ : OUTPUT NEXT BYTE 
011¢ eg D6 ah 1308 INCL UCB$L_TT_OUTADR(RS) : UPDATE POINTER 
0120 ¢5 87 0 1 1309 DECW  UCBSW-TT“OUTLEN(RS) : UPDATE COUNT 
0? ‘12 1310 BNEQ : NOT LAST CHARACTER 
0800 8F AA 4 1311 BICW  #TTYS$M_TANK_BURST,- : RESET BURST ACTIVE 
0108 C5 8 1 1 ucesu TT_HOCD(R5) 
FF75 = 31 : ! + 60$: BRW 0232_6uT_LOOP 
: : 15 : OUTPUT SINGLE CHARACTER 
— 1 19 6232_CHAR: 
06 AO 0108 ¢5 90 — 1 18 MOVB UCBS$W_TT_HOLD(R5),6(RO) ; OUTPUT CHAR IN TANK 
0400 8F AA 4 131 BICW #TTYSA_TANK_H ~ : SHOW TANK EMPTY 
0108 C5 8 1320 ucesu TT_HOCD(R5S 
FF65 31 - 1 BRW 0232_O6UT—LOOP 
: : STOP OUTPUT 
E 1325 6232_stop: 
8A 1 6 BICB #UCBSM INT {UCBSH_TIM,~ 
64 A5 40 1 UCBSW_STS(RS) : RESET OUTPUT ACTIVE 
54 008 b0 42 1 8 MOVL a (SP)TR4 : GET IDB ADDRESS 
106 C¢ 46 1 BICB UCBS$W_TT_UNITBIT(RS).- ; RESET THE OUTPUT ENABLE 
a7 no BEA go BRE Toye RRRECHTSBAAEE S90 
FF 4 i ‘ BRW HRS out -toor : 
4 4 -ENABLE LSB 
4 6 : SEND XON OR XOFF 
34 1338 6232_PREMPT: 


Page 31 
. (1 


04-00 
RIVER.MAR; 1 


SEP=1984 06:15:59 CTTDRVR. SACIDZD 


Ig- 


I 14 


pport 


for DZ=-11 su 
UPT SERVICE 


; RESET XOFF STATE 
; OUTPUT CHARACTER 


N 
H 
Pp 
L 
LSB 


- DISABLE 


GAO KIM TNO 
lt pny Soy-Son-n-4 
PENN IIe) 


a ee ee cal oe el cee ae 


Too srs 
MWUNOODOOO 


DZDRIVER - Port Driver for DZ-11 support 16-SEP-1984 02:24: ‘AX/VMS Macro v04-00 Pp d2' 
Moen OOS SET SPEED, PARITY PARAMETERS ety 7 Re: 46:20 TTDRVR.SRCIDZDRIVER.MAR:1 oo #4) voi 
4 i -SBTTL SET SPEED, PARITY PARAMETERS 
4 1 i++ 
4 ; DZSSET_LINE - RESET SPEED, PARITY 
4 ° : FUNCTIONAL DESCRIPTION: 
4 1355 : INPUTS: 
4 1 § : 
4 ; RS = UCB ADDRESS 
4-4 : + OUTPUTS: 
4 1360; 
OB } $3 3 R4 USED 
64 1 , 
864 1364 DZSSET_LINE: 
54 265 00 te 65 MOVL §UCBSL_CRB(R5) ,R4 ; ADDRESS CRB 
0 ¢ : SET UP LINE SPEED AND PARITY 
54 ot 84 DO Se 1 69 ’ MOVL  § @CRBSL_INTD+VECSL_IDB(R4).R4 |; GET THE CSR ADDRESS VIA CRB 
E 04 086C 1370 CLRL_ =(SP) : RESET A TEMPORARY LOCATI 
01 AE O0F4 CS 01 86F 1371 SUBB3 #1 yeas 17 SPEED(RS) ,1(SP) : ADJUST DATA BASE SPEED 
6 O0F8 C5 875 1 if MOVB =: UCB 5 TT-PARITY(RS), (SP); SET PARITY,STOP, CHARACTER SIZE 
6— F007 af AA B7A 137 BICW  #*XF007,TSP) : CLEAR SPECEAL FIEL 
7 €0 6 7F 1374 BBS #UCBS$V_fT_DSBL.- ; SKIP CLOCK ENABLE IF LINE DISABLED 
05 012A C5 381 1375 UCB$B_TT_MAINT(RS) ,3$ 
6E 1000 8F As oe H , ™ BISW  #<DZLPRSA_CLOCK>, ($P) 
6E S4A5 A eA 1 28 : BISW UCBSW_UNIT(RS), (SP) : SET LINE NUMBER 
01 B 137 BITW  #OZCSRSM_MODE, (Rd) + D232 CONTROLLER? 
£9 3 6 “s BNEQ 108 : YES 
02 a6 BE F7 0893 1 : : CVTLW (SP)+,2(R4) : INSERT AS LINE PARAMETER 
05 3 ; RSB 
i 5 wa HANDLE DZ-32 SPECIFIC FUNCTIONS 
00F4 CS «(91 «(0898 (1 : " « CMPB-)=s« UCBSW_TT_SPEED(RS),- |; TRANSMIT/RECEIVE THE SAME 
OOFS C5 9¢ 1 8 CBSW~TT~SPEED+1(R5) 
Fe 1 oF 1 BEQL $ : YES, NO SPLIT SPEED 
oors cS) 9 1 1390 TSTB YCBSW_TT_SPEED+1 (RS) : RECEIVE SPEED SPECIFIED? 
- AS 31 BEQL $ : NO, NO SPLIT SPEED 
N4 38 : SET SPLIT SPEED 
6E 2000 8F AS O8A7 1395 BISW  #DZLPRSM_SPLIT, (SP) : SET SPLIT SPEED BIT 
e511 BAC 3% BRB 5$ : COMPLETE SETUP 
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3* 
$ INIT DZ=-11 MODEM TRANSITION POLLING IF NOT ALREADY ACTIVE. LINK CRB 
; FOR CURRENT LINE INTO MODEM TRANSITION POLLING LIST 
: INPUTS: 
: RS = UCB ADDRESS 
; OUTPUTS: 
: RO-R4 USED 
DZ11$SET_MODEM: 
MOV. —_‘-UCBSL CRB(RS) .R4 ; ADDRESS CRB 
TSTL 7$L_BIAL Di-11 POLLING ALREADY ACTIVE? 
BNEQ & : VES. SKIP STARTU 
PUSHR #*M<R3,R4, f° 
MOVAL D781 IRGUE ADDRESS OF TIMER ENTRY 
MOVB. #IPL$ MOUEUEAST, TOESB -ROTYPE(RS) r SET FORK IPL 
PUSHAB 4$ ; RETURN’ ADD RESS” 
iW 30$ : QUEUES FORK 
4: POPR #*M<R3,R4,R5> 
: MOVAL CRB$L_DZ MODEM(R4) , R3__—; ADDRESS OF DZ CRB THREAD 
MOVAL Dz8L BIACUP : ADDRESS OF DZ TIMER LIST HEAD 
MOVL R1,R2 
LINK CRB INTO DZ-11 MODEM POLLER LIST IF NEEDED 
ios: 
CMPL —- (R2) ,R3 : IS CRB ON LIST 
BEQL 208 : YES, DON 
MOVL  (R2),R2 ; POINT TO NEXT CRB 
BNEQ 108 ; LOOK FOR NEXT 
MOVL (R1), (R3) ; LINK CRB AT LIST HEAD 
MOVL = R3, (R21) : 
20$: 
308 7 
i, G*EXESEORK : FORK TO QUEUE TIMER ENTRY 
DSBINT #IPL 
MOVA ODESTIMER TOESL_FPC(RS); ADDRESS OF TIMER SERVICE ROUTINE 
MOVL  G*TTYSGL_DELTA, TOESG_DEL f 
INTERVAL IS SYSGEN PARAMETER 
MOVB #TOESc SSREPT 1 TOESB_ ROTYPE(RS) 
mova GTEXESGQ 
ADDL G*TTY$GL ~beL stir os 
ADWC 3s #0 R1 
JSB G*EXESINSTIMOQ ; INSERT INTO TIMER QUEUE 
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; DZSSET_MODEM - INIT MODEM POLLING 
; FUNCTIONAL DESCRIPTION: 
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— S Macro Vv04-00 Page 
-SEP-1984 226: AX/VMS Mac : 

fa ety ee iri as, sre Praga Mer seen lone geieies TTDRVR. SRCIDZDRIVER.MAR; 1 
Symbol table naire 

EXESGL_ABSTIM ereeeees 
DZCSRSV_CLEAR : 4 Peete APR sseeeess | 
DZCSRSV~DS_ CHG : ers seceeess 
DZCSRSV-DSENAB : breeea trot tn ssereees 
Je anh = EXESINS ine z a0 
DI CSRSV-RASTENAB . rea ave 
DZCSRSV~MODE : ade et 
DZCSRSV-RCVINT : 6 {DSL uCBL ST 
DZCSRSV-RCVRDY : r 1OSH CINE OF : 8 
DZCSRSV~SNDINT : fOSACLINE : 
DZCSRSV-SNDRDY : LOSR-LOQP = Sse 
BEL ES e-ace = 8 9 10$M- UNLOOP 9o009100 03 
DZLCS1$S~ACK : 1OSM-UNLOD ee x 
DSL ORSA CLG = 09003 1OCSRETURN , aaaese 
Sr erent tie = 9000 5 1PL$_QUEVEAST : sean 
DILPRER AR ° 4 MODERSC_DATASET = 00000003 
BULPRSR-SIZE, | = 899000 RODENSE = 89900090 
DILPREA-SPEED . 9000 £00 SS 2000000 
BILPRER-StOP = 0000 a99 Ore supRoT™ * ° 9000018 

L = 

Se eereencine. = 09000008 PORT ABORT : $98 
SUL PRSS- = B8000001 pont 05 Str : HBSsH 
Settee ae = 90000002 PORT RAINE | = 90000030 
BULPRES- SPEED = Boppooet ORT"SET_LINE = 90000008 
STL PRSS STOR = itd + PORT~SET-MODEM : 90000 
DILPREV = $000000¢ PORT_STARTI = ponggnd 
grea : BSS Bro SH os 
bat 3V- : 2090 80 PORT-XOF = 90000014 
sat te" : Bass sed a 
DILPREV SPEED = 90000008 PRS TF merit 
DZLPRSV~SPLIT = 90000000 SIT = $esneee 
Se USN"BUr = $00 FF TQESB_RQTYPE = Songeege 
DZRCVSM~BUF = 000000F TaeSB Rar 
Seta : BSE eae : HESS 
DERCVSR-OVERR . op 1000 TOESL “FC : 00¢ 
DZRCVSM~PARERR : | TQESLOPPC 
DZRCVSM-VALI : Q reeau vide 
See tvee s 1 TT$M_BS_CTS = 0000001 
DZRCVSS_FRAMER : } T1$H_68._ CIs 
Sita tie s 1 TT$V~DS~CARRIER = 90000005 
DZRCV$S~OVERRUN : TTSV=DS-CAR 
DZRCV$S_PARERR : TTSV-DS-DTR i 
DZRCV$S~VALID : HSV-pooeA i 
DERCVSV- ~ 3 TTS ONK . RRReeeeke xX 
SOREVSYTLINES : 8 TTYSGB_DEF SPEED qeseenes 
DIR 704 wd E TTYSGB_PARITY Reereres x 
SEO EVEV-PAREREY : C TTYSGB-RSPEED geoenees 
DZRCV$V~PARERR : IVSer-SFFEbae, sitttes 
rats ad teeeeree X 03 TTYSGL~DEFCH 
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Symbol table = gr SEE 882 85:93:88 LT TDRVR. SREIDZDRIVER.MAR: 1 (1) 
TTYSGL_DELTA eeeerere =X UCBSW_TT UNITBIT s 196 
TTY$GL_DPT teeneeee = X UCBSW_UNT = 
TTYSGL_OWNUIC eeeeenee =X VECS$L_1DB = 8 
TTYSGW_DEF BUF eexeeeee =X VECSL_INITIAL = f 
TTY$GW-PROT eeeeeeee =X VECSL-UNITINIT z 
TTYSM_TANK_BURST = 8 
TTYSM_TANK_HOLD = 4 
TTYSM_TANK_PREMPT = 1 
TTYSM_TANK-STOP 2 
TTY$V_PC_NOTI = 
TTYSV_TARK_ BURST = 
UCB$B_DEVCCASS 2 4 
UCBS$B_DEVTYPE = 4 
UCB$B_DIPL = $ 5E 
UCB$B_F IPL = 0B 
UCB$B_TT_DEPARI = S poo ES 
UCB$B_TT_DETYPE = 000000F 
UCB$B_TT_DS_RCV 2 90000) 4 
UCB$B_TT_DS_ TX z 125 
UCB$B_TT_MAINT = 0000012A 
UCB$B_TT_OUTYPE = 000001 
UCB$B_TT_PARITY = aia 
UCB$B_TT_PREMPT = O00 04 
UCBSC_TT-LENGTH = aie 4 
UCBSL _CRE = 00000024 
UCBS$L_DDB = 00000028 
UCBSL_DDT = 4444 ; 
UCBSL_DEVCHAR = 000000 
UCBSL_DEVCHAR2 = 00000035C 
UCBS$L_DEVDEPEND = aie oe 
UCBSL_DEVDEPND2 = 00000048 
UCBSL_DUETI = sis 4 6 
UCBSL_TT_CLASS = 00000114 
UCBSL_TT_DECHA1 = et 
UCBSL_TT_DECHAR = pooece 
UCBSL_TT_GETNXT = 8008 10€ 
UCBSL_TT_OUTADR = Beeht | 
UCBSL_TT~ s 0011 
UCBSL_TT_PUTNXT = 0011 
UCBSL_TT_RTIMOU = 000B4 
UCBS$L_TT_WBLINK = 00D0 
UCBSL_TT-WFLINK = C 
UC w = 0000000 
UCBSM_ ONL INE = 0000001 

BSA_Ti = 
UCBSM_TT_DSBL = 9 
UCB$V— INT = 
UCBSV_ = , 
UCB$V_TT _DSBL = 

CBSW_OEVBUF S1Z = 4 

CBSW_STS = 6 
UCBSW_TT_DESIZE = Fi 

CBSW_TT-DESPEE = 
UCBSW_TT_HOLD = 

CBSW_TT_OUTLEN = 
UCB$W~TT-PRTICTL = 
UCB$W_ TT" SPEED = F 
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Psect synopsis ; ae soSE-198e 04:15:55 ENTDRVR.SRESDZDRIVER.maR:1 “29° fp 


terete sneer eee ease t 


! Psect synopsis ! 


bmw wore ene eee enn nw} 


PSECT name Allocation PSECT No. Attributes 

- ABS . 0 6° ( aw 00 ( 0.) NOPIC USR CON ABS LCL are NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 0 Shoe ( -) O71 ¢ +1.) \NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
$$$105 feat 86 ( ¢¢ ) ¢ ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$381 130k 8 Bf ( 2546.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
$$$11 “PRIA 8000 038 ( 56.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
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! Performance indicators ! 


tua rma r ner moon oeneneawen aoe + 


Phase Page faults CPU Time Elapsed Time 
Initialization 30 00: 00:00. 97 0:00:00.37 
Command processing 128 0:00:00. ¢ 0: Beh 
Pass 719 8: 9 0: 129-99 
fe kn es 258 00:00;06:78 00. 0:08:11 
Symbol table output 35 09: 00:3 00:00: 0.36 
Psect synopsis output 3 B28: g- 88: 8 BR - 2 
Cross-reference output 0:00:00. 0:00:00.00 
Assembler run totals 1169 0:00:31. 00:01:05.15 


The working set Limit was 2250 pages 

187090 bytes _ (366 pages) of virtual memory were used to buffer the intermediate code. 

There were 170 pages of symbol table space allocated to hold 3041 non-local and 103 local symbols. 
1481 source Lines were read in Pass 1, produc sine 25 object records in Pass 2. 

72 pages of virtual memory were used to define 67 macros. 


$oowweeeecosooscooceccccccn$} 


Macro library name Macros defined 
5 SS22SDUACE: SYS.OBJJLIB.MLB; 1 3 
5SSDUA SYSLIBJSTARLET. MLB;2 1 
TOTALS (all Libraries) 4 


3540 GETS were required to define 45 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:DZDRIVER/OBJ=OBJ$:DZDRIVER MSRC$:DZDRIVER/UPDATE=(ENHS:DZDRIVER) +EXECML$/LIB 
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